لعة البرمجة دلفي وإلرسورس 


لغة البرسجة دلفى 


كيفيهة بر مجة برنامج لإاسنخراج ملفاث إلندميذية من إلرسوس 
اول علينا إضافة إلملفاتف إلنفيذية بوإسطة ملفه >۲ 
وذللة بانشاء ملف فارع بوإاسطة |أي محرر نصوص 


ويضع فيه هذ| السطر اإابرمجي 


mupx RESDATA upx.exe 


حيث إلملون بالحمر إسم البرنامج [ الملف النذفيذي الذي بريد إن ندمجه ] 
والازرق نسنخدمه فیما بعده[ |ي |سع مناسب ] 

وبالاذظر صيغة الملف [ طبيعة ] مثلا الصونياف - ۷2۷ أو |الصورم٣ط,‏ 

ونحفظط إلملف بهذ| الاسم ١ء۲.×مں‏ 


ثم نذهب إلى مجلد ١اط‏ الموجود في مسار ننصيب الدلفي 

وببحث عن ١×ء.32١١۲[‏ للنعمل كمبيل للملف ١۲.×م‏ نا 

وذللقة بسحب إلملف |لسابق ذكره إلى ١×ء.32ءء5۲‏ ویدنج لدا ملف RES‏ 
px IC‏ 


Resource Script 


1 KÊ 


UpX EXE 
ٍ» IPX executablê parker # 


The UP* Team http: f up=x.sf.nek 


upx. RES 
f Resourtê Filê = 
2O4 KB 


i ^ ^| minou dz 


لعة البرمجة دلفي والرسورس 


الان وقت البرمجة 


هذ| إلکود (ابجاد مسار مجلد +٥۳‏ 


function GetTempDirectory 


‘function GetTempDirectory: String 
var 
‘tempFolder: array[o..MAX_ PATH |] of Char 
begin 
؛(GetTempPath(MAX_‎ PATH, @tempFolder 
‘(result := StrPas(tempFolder 


‘end 


وهذه بروسيدير لاسنخراج الرسورس 


procedure ExtractRes 
ProcedureExtractRes(ResType, ResName, 
؛(ResNewName‎ : String 

var 

‘Res: TResourceStream 

begin 

Res:=TResourceStream.Create(Hinstance, Resname, 
؛((Pchar(ResType‎ 

‘(Res.SavetoFile(ResNewName 

؟Res.Free‎ 


end‏ ؛ 


إولا بجب علينا إسنخراج الملف المدموج في |لرسورس 


في المجلد المؤقف نضع هذ| الكود في زرإسنخرج [ررالعمل! ] 


if sEditı.Text<>''then begin 


ExtractRes('RESDATA','mupx',GetTempDirectory+'Upx. 


‘(exe 


2 ^ ^| minou dz 


لعه البرمجة دلفي والرسورس 


مثا لاملة ضعط ملف مضعوط 
winexec(pchar('""+ GetTempDirectory+'upx.exe"--ultra-brute'+x+k+'‏ 
("'+sedit1.Text+"""),1‏ ؛ 


edit. rext‏ مسار |لملف |لننفيذي 


'+x+k+'‏ brute-traاu--‏ بر|مانر 


{Rupx.RES$} ةفlۍض|‎ 


اقح اشوا 


Var 


‘Form1: T FOrn1 


implementation 


IR *.dfm$} 
{R upx.RES$} 


وهكذ| إننهيدا أحبائي من الشرح اإلبسيط 


وهذه صوره إلبرنامج إلدهائية 


{Documents and Settings Adrninistr ator , LISER De 


ES ^ ^| minou dz 


